;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; IO
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Syntax:
;;
;;   (read-delimited-string port)
;;
;;   read-generic-in-range-prompt
;;   (read-real-in-range prompt default range)
;;   (read-integer-in-range prompt default range)
;;      read-object-generic-list
;;      read-object-generic
;;      read-object-id/name-list
;;      read-object-id/name
;;      read-string-from-list
;;      read-symbol-from-list
;;      read-symbol-list
;;      read-symbol
;;      yes-or-no?
;;      y-or-n?
;;      read-string/symbol-list
;;      read-string-list
;;      read-boolean-list
;;      read-real-list
;;      read-integer-list
;;   (read-filename prompt default)
;;      read-symbol/string
;;      read-string/symbol
;;   (read-string prompt default)
;;   (read-real prompt default)
;;   (read-positive-integer prompt default)
;;   (read-integer prompt default)
;;   (ti-read-unquoted-string)
;;      read-generic-list-prompt
;;      read-generic-prompt
;;      read-real-pair-list
;;      read-generic-list-pair
;;      read-generic-list
;;      read-generic
;;      readq-generic
;;
;;      read-choice
;;
;;      read-line
;;      read-line-list
;;
;;      read-integer-symbol/string-from-pair-list
;;
;;      read-stringpairs-list-asking-number
;;      read-strings-list-asking-number
;;
;;      cx-read-vars


